(defun rnlayouts ()
  (SETQ layout_cnt 1)
  (vl-load-com)
  (FOREACH n (layoutlist);(reverse(layoutlist))
    (vlax-for ITEM (vla-get-layouts(vla-get-activedocument(vlax-get-acad-object)))
      (if(=(strcase(vla-get-name ITEM))(strcase n))
        (vl-catch-all-error-p
          (vl-catch-all-apply
            'vla-put-name
             (list  ITEM (STRCAT "Layout" (ITOA layout_cnt)))
          )
        )
      )
    )
    (setq layout_cnt (1+ layout_cnt))
  )
)